home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / tori / sharedi.cst / 03062_Script_3062 < prev    next >
Text File  |  1983-01-27  |  3KB  |  84 lines
  1. on blocca
  2.   global dove,anim_loco,vidstat,gia_fatto,vidstat,foto_vid
  3.   set anim_loco to false
  4.   set pinc to the mousecast
  5.   set mv to the mousev
  6.   set mh to the mouseh
  7.   set n_castlib to "sharedi"
  8.   ------------------------BLOCCA E SPEGNE I VIDEO QUANDO SI CAMBIA SCHERMATA
  9.   if pinc > 0 then
  10.     set scrpt to the scripttext of member (pinc)
  11.     set gia_fatto to false
  12.     if offset(" go ",scrpt) and the name of member pinc <> "1h_cur" then
  13.       if the membernum of sprite 48 > 0 then
  14.         if the casttype of member (the membernum of sprite 48) = #digitalvideo then
  15.           set the movierate of sprite 48 to 0
  16.           set vidstat to "stop"
  17.           puppetsprite 48 , false
  18.           updatestage
  19.         end if
  20.       end if
  21.       
  22.     end if
  23.     ----------
  24.     if the membernum of sprite 47 > 0 then
  25.       if the casttype of member (the membernum of sprite 47) of castlib n_castlib = #digitalvideo then
  26.         if offset("spritebox",scrpt) and offset("111",scrpt) then
  27.           global qvolte_video
  28.           put "passato"
  29.           set the video of cast 3001 of castlib n_castlib to 0
  30.           set the video of cast 3001 of castlib n_castlib to 1
  31.           set the movierate of sprite 47 to 0
  32.           put "mvrt",the movierate of sprite 47 
  33.           set qvolte_video to false
  34.         end if
  35.       end if
  36.     end if
  37.     
  38.     ---------BLOCCA IL CUBETTO QUANDO SI INGRANDISCONO I VIDEO E LE FOTO
  39.     if the membernum of sprite 47 > 0 then
  40.       if the casttype of member (the membernum of sprite 47) of castlib n_castlib = #digitalvideo then
  41.         
  42.         if offset("spritebox",scrpt) and the name of member pinc <> "1h_cur" and offset("640",scrpt) then
  43.           if the movierate of sprite 47 = 1 then
  44.             set the movierate of sprite 47 to 0
  45.             if the mouseh < 260 then 
  46.               set foto_vid to true  
  47.             else
  48.               set foto_vid to false
  49.             end if
  50.           end if
  51.         else
  52.           if the movierate of sprite 47 = 0 then
  53.             if foto_vid then 
  54.               set the movierate of sprite 47 to 1
  55.               set foto_vid to false
  56.             end if
  57.           end if
  58.         end if
  59.         
  60.       end if
  61.     end if 
  62.     ------------------ 
  63.     global percorso
  64.     if marker(0) = 1 then 
  65.       set rit_marker to marker("viaggio")
  66.     else
  67.       set rit_marker to marker(0)
  68.     end if
  69.     if not rit_marker  then 
  70.       set rit_marker to 1
  71.     end if
  72.     if count(percorso) > 0 then
  73.       if getlast (percorso) <>  ("#"&the moviepath&the moviename) or getPropAt(percorso, count(percorso)) <> rit_marker then
  74.         set r_movie to "#"&the moviepath&the moviename
  75.         addprop percorso, rit_marker,  r_movie
  76.       end if
  77.     else
  78.       set r_movie to "#"&the moviepath&the moviename
  79.       addprop percorso, rit_marker,  r_movie
  80.     end if
  81.     -----
  82.   end if
  83.   
  84. end